'sortList是一个完善的集合对象，它可以添加数据，根据key键的内容自己升序排序，具有集合的完善方法，又和字典非常相像
Sub houqibangding()
    Dim sl As Object
    Set sl = CreateObject("system.collections.sortedlist")
    
    Set sl = Nothing
End Sub